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--file p5bdefs,mesa edited by Johnsson, May 23, 1978 9:23 AM 
DIRECTORY 

AUoDefs: FROM "al todef s" USING [BYTE], 

CodeDefs: FROM "codedefs" USING [CCIndex, JumpCCIndex, Lexeme, RegisterName], 

LitDefs: FROM "litdefs" USING [STIndex], 

SymDefs: FROM "symdefs" USING [CBTIndex], 

TreeDefs: FROM "treedefs" USING [Treelndex, TreeLink]; 

DEFINITIONS FROM AUoDefs, TreeDefs, SymDefs. CodeDefs, LitDefs; 
P5BDefs: DEFINITIONS ■ 

BEGIN 

-- from Expression 

Cexp: PROCEDURE [t: TreeLink] RETURNS [1 : Lexeme]; 

Cregload: PROCEDURE [v: RegisterName]; 

Creloc: PUBLIC PROCEDURE [node: Treelndex, allowdescriptor : BOOLEAN] 
RETURNS [Lexeme]; 

pushconst: PROCEDURE [t: TreeLink]; 

pushlex: PROCEDURE [1: Lexeme]; 

Ipushlex: PROCEDURE [1: Lexeme] RETURNS [Lexeme]; 

pushlitval: PROCEDURE [v: WORD]; 

pushlnestedprocdesc: PROCEDURE [bti: CBTIndex]; 

pushlnonnestedprocdesc: PROCEDURE [n: CARDINAL]; 

pushlprocdesc: PROCEDURE [bti: CBTIndex]; 

pushrhs: PROCEDURE [t: TreeLink]; 

MWConstant: SIGNAL [cOffset: CARDINAL] RETURNS [Lexeme]; 

-- from Final 

Cfixup: PROCEDURE [start: CCIndex]; 

AreThreadsValid: PROCEDURE RETURNS [BOOLEAN]; 

-- from Flow/Expression 

Cflowexp: PROCEDURE [node: Treelndex] RETURNS [1: Lexeme]; 

— from Jumps 

bindjump: PROCEDURE [min, max: INTEGER, c: JumpCCIndex] RETURNS [bindable: BOOLEAN]; 

codejump: PROCEDURE [nbytes: INTEGER, c: JumpCCIndex]; 

-- from OutCode 

endcodefile: PROCEDURE RETURNS [nbytes: CARDINAL]; 

movetocodeword: PROCEDURE RETURNS [CARDINAL]; 

writecodeword: PROCEDURE [w: WORD]; 

ProcessGlobalStrings: PROCEDURE [framestart: CARDINAL] RETURNS [nextnewf rame: CARDINAL]; 

ProcessLocalStrings: PROCEDURE [framestart: CARDINAL, first: STIndex] RETURNS [nextnewf rame: CARDINAL 
**-] . 

startcodefile: PROCEDURE; 

outbinary: PROCEDURE [bti: CBTIndex, start: CCIndex]; 

-- from Peephole 

Cpeephole: PROCEDURE [start: CCIndex]; 

CO: PROCEDURE [i: BYTE]; 

CI: PROCEDURE [i: BYTE, pi: WORD]; - 

C1W: PROCEDURE [i: BYTE, pi: WORD]; 

C2: PROCEDURE [i: BYTE, pi, p2: WORD]; 

C3: PROCEDURE [i: BYTE, pi, p2, p3: WORD]; 

LoadConstant: PROCEDURE [c: WORD]; 

-- from Statement 

Ccasestmtexp: PROCEDURE [node: Treelndex, iscasexp: BOOLEAN] RETURNS [psize: CARDINAL]; 

Ccatchphrase: PROCEDURE [node: Treelndex]; 

Cstatement: PROCEDURE [t: TreeLink] RETURNS [TreeLink]; 

sCcatchphrase: PROCEDURE [node: Treelndex]; 

END. 


